home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / BUS / TMCM Software and Labs.sit / Software for TMCM 7_95 / Files for Lab 13 / TwoTasks < prev   
Text File  |  1995-07-07  |  718b  |  40 lines
  1. { 
  2.   It is possible to use multitasking in xTurtle to perform
  3.   any two or more tasks simultaneously.  In this example,
  4.   two turtles perform independent "random walks".
  5.  
  6.   When you run this program, you will need to use the 
  7.   "Kill Program" command in the "Run" menu to stop it.
  8. }
  9.  
  10. fork(2)  { Split into two turtles }
  11.  
  12. IF ForkNumber = 1 THEN
  13.  
  14.    { Task to be performed by turtle #1... }
  15.  
  16.    PenUp
  17.    MoveTo(3,0)
  18.    PenDown
  19.    LOOP
  20.       face(90 * randomInt(4))
  21.       forward(0.5)
  22.       EXIT IF 1=2
  23.    END LOOP
  24.  
  25. OR IF ForkNumber = 2 THEN
  26.  
  27.    { Task to be performed by turtle #2... }
  28.  
  29.    PenUp
  30.    MoveTo(-3,0)
  31.    PenDown
  32.    LOOP
  33.       face(120 * randomInt(3))
  34.       forward(0.5)
  35.       EXIT IF 1=2
  36.    END LOOP
  37.  
  38. END IF
  39.  
  40.